home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / dte48.src < prev    next >
Text File  |  1990-10-16  |  875b  |  45 lines

  1. %%HP: T(3)A(D)F(.);
  2. @ by Kevin Jessup
  3. \<< 1 2 3 CF CF CF CLLCD OPENIO "" "" "" "" "" "" ""
  4.   DO
  5.     IF BUFLEN DROP DUP 1 FC? AND
  6.     THEN
  7.       IF DUP 22 >
  8.       THEN DROP 22
  9.       END SRECV DROP +
  10.       IF DUP SIZE DUP 22 >
  11.       THEN OVER 23 ROT SUB SWAP 1 22 SUB SWAP 8 ROLL DROP
  12.       ELSE DROP
  13.       END 1 7
  14.       FOR i i PICK 8 i - DISP
  15.       NEXT
  16.     ELSE DROP
  17.     END
  18.     IF KEY
  19.     THEN
  20.       CASE DUP 54 ==
  21.         THEN 1
  22.         END DUP 61 ==
  23.         THEN 1 TOGF DROP 0
  24.         END DUP 71 ==
  25.         THEN 2 TOGF DROP 0
  26.         END DUP 81 ==
  27.         THEN 3 TOGF DROP 0
  28.         END
  29.         IF 2 FS?
  30.         THEN 2 CF 95 +
  31.         END
  32.         IF 3 FS?
  33.         THEN 3 CF 190 +
  34.         END KEYMAP SWAP DUP SUB
  35.         IF XMIT NOT
  36.         THEN DROP
  37.         END 0
  38.       END
  39.     ELSE 0
  40.     END
  41.   UNTIL
  42.   END 8 DROPN
  43. CLOSEIO
  44. \>>
  45.